home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / BOOKS / BKSHELF.DIR / 00064.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  1.2 KB  |  62 lines
  1. global paused
  2.  
  3. on startMovie
  4.   set paused to 0
  5. end
  6.  
  7. on idle
  8.   if the frame < 655 then
  9.     repeat with x = 12 to 13
  10.       if not (the puppet of sprite x) then
  11.         puppetSprite(x, 1)
  12.       end if
  13.     end repeat
  14.   end if
  15.   case rollOver() of
  16.     12:
  17.       roButtons(12, the memberNum of sprite 12)
  18.     13:
  19.       roButtons(13, the memberNum of sprite 13)
  20.   end case
  21.   if paused then
  22.     if not rollOver(12) then
  23.       set the memberNum of sprite 12 to 70
  24.     end if
  25.     if not rollOver(13) then
  26.       set the memberNum of sprite 13 to 68
  27.     end if
  28.   else
  29.     if not rollOver(12) then
  30.       set the memberNum of sprite 12 to 66
  31.     end if
  32.     if not rollOver(13) then
  33.       set the memberNum of sprite 13 to 68
  34.     end if
  35.   end if
  36. end
  37.  
  38. on roButtons sprNum, memNum
  39.   if not (memNum mod 2) then
  40.     set the memberNum of sprite sprNum to memNum + 1
  41.     if sprNum = 12 then
  42.       set the memberNum of sprite 13 to 68
  43.     end if
  44.     if sprNum = 13 then
  45.       if paused then
  46.         set the memberNum of sprite 12 to 70
  47.       else
  48.         set the memberNum of sprite 12 to 66
  49.       end if
  50.     end if
  51.     updateStage()
  52.   end if
  53. end
  54.  
  55. on waitTill plusTicks
  56.   set stopPoint to the ticks + plusTicks
  57.   repeat while the ticks < stopPoint
  58.     idle()
  59.     updateStage()
  60.   end repeat
  61. end
  62.